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# Value encodings : 

5 # ' ' - String (and asciiz is not appended) 

# "" - BMP string of ASCII charactes 

# [] - Hex octet string 

# <> - IP 

# {} - Object ID 
10 # Other - Integer 



1 system = 0 

2 allocations = 0 

15 3 vtPoolSize = 100000 

3 vtNodeCount = 30000 
3 channels = 800 

3 chanDescs = 5 

3 messages = 400 

20 3 nameChans = 10 

3 tpktChans = 25 

3 udpChans = 5 

3 protocols = 800 

3 maxProcs = 800 

25 

1 RAS = 0 

2 responseTimeOut = 20 

2 allowCallsWhenNonReg = 0 

2 manualRegistration = 0 
30 2 manualDiscovery = 0 

3 defaultGatekeeper = 0 

4 ipAddress = 0 

5 ip = [c8c8c8c8] 
5 port = 1719 

35 

2 registrationinf o = 0 

3 terminalType = 0 

4 vendor = 0 

5 vendor = 0 

40 6 taSCountryCode = 11 

6 t35Extension = 11 

6 manuf acturerCode = 11 

5 productid = 'Test application' 

5 versionid = 'RADVision' 

45 4 terminal = 0 

4 mc = 0 



50 5 el64 = '12345' 

2 rasMulticastAddress = 0 

3 ipAddress = 0 

4 ip = <224.0.1.41> 
55 4 port = 1718 

2 rasPort = 0 

1 Q931 = 0 

2 manualAccept=0 

60 2 responseTimeOut = 150 

2 connectTimeOut = 500 

2 callSignalingPort = 1720 

2 maxCalls = 10 

65 1 h245 = 0 

2 masterSlave = 0 
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3 terminalType = 50 

3 timeout = 100 

2 capabilities = 0 

3 timeout = 100 

5 3 terminalCapabilitySet = 0 

4 sequenceNumber = 0 

4 protocolldentifier = [00] 

4 multiplexCapability = 0 

5 h2250Capability = 0 

10 6 maximumAudioDelayJitter = 60 

6 receiveMultipointCapability = 0 

7 multicastCapability = 0 

7 multiUniCastConference = 0 

7 mediaDistributionCapability = 0 

15 8 * = 0 

9 centralizedControl = 0 

9 distributedControl = 0 

9 centralizedAudio = 0 

9 distributedAudio = 0 

20 9 centralizedVideo = 0 

9 distributedVideo = 0 

6 transmitMultipointCapability = 0 

7 multicastCapability = 0 
25 7 multiUniCastConference = 0 

7 mediaDistributionCapability = 0 

8 * = 0 

9 centralizedControl = 0 
9 distributedControl = 0 

30 9 centralizedAudio = 0 

9 distributedAudio = 0 

9 centralizedVideo = 0 

9 distributedVideo = 0 

35 6 receiveAndTransmitMultipointCapability = 0 

7 multicastCapability = 0 

7 multiUniCastConference = 0 

7 mediaDistributionCapability = 0 

8 * = 0 

40 9 centralizedControl = 0 

9 distributedControl = 0 
9 centralizedAudio = 0 

9 distributedAudio = 0 

9 centralizedVideo = 0 

45 9 distributedVideo = 0 

6 mcCapability = 0 

7 centralizedConf erenceMC = 0 

7 decentralizedConf erenceMC = 0 

50 6 rtcpVideoControlCapability = 0 

6 mediaPacketizationCapability = 0 

7 h261aVideoPacketization = 0 

4 capabilityTable = 0 
55 5 * = 0 

6 capabilityTableEntryNumber = 7111 

6 capability = 0 

7 receiveAudioCapability = 0 

8 g711Ulaw64k = 60 

60 

5 * = 0 

6 capabilityTableEntryNumber = 7110 

6 capability = 0 

7 receiveAudioCapability = 0 
65 8 g711Alaw64k = 60 



5 
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capabilityTableEntryNumber = 728 
capability = 0 
receiveAudioCapability = 0 
g728 = 60 

= 0 

capabilityTableEntryNumber = 261 
capability = 0 
receiveVideoCapability = 0 
h2 61VideoCapability = 0 
qcifMPI = 1 
cifMPI = 1 

temporalSpatialTradeOf fCapability = 0 
maxBitRate = 600 
stilllraageTransmission = 0 

= 0 

capabilityTableEntryNumber =2 63 
capability = 0 
receiveVideoCapability = 0 
h2 63VideoCapability = 0 

sqcifMPI = 1 

qcifMPI = 1 

CifMPI = 1 

maxBitRate = 1000 

unrestrictedVector = 0 

arithmeticCoding = 0 

advancedPrediction = 0 

pbFrames = 0 

temporalSpatialTradeOf fCapability = 0 
errorCompensation = 0 



capabilityTableEntryNumber = 7231 
capability = 0 
receiveAudioCapability = 0 
g7231 = 0 
maxAl-sduAudioFrames = 8 
silenceSuppression = 0 



* = 0 # Sequence 
capabilityTableEntryNumber = 120 # INTEGER [1.. 65535] 
capability = 0 

receiveAndTransmitDataApplicationCapability = 0 # Sequence 
application = 0 
tl20 = 0 

separateLANStack = 0 # NULL [0..0] 
maxBitRate = 1000 # INTEGER [ 0 .. 4294 967295] 



capabilityDescriptors = 0 
* = 0 

capabilityDescriptorNumber = 0 
simultaneousCapabilities = 0 
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hannels = 0 

* = 0 

name = ' g711Alaw64k' 
dataType = 0 
audioData = 0 
g711Alaw64k = 60 

* = 0 

name = ' g711Ulaw64k' 
dataType = 0 
audioData = 0 
g711Ulaw64k = 60 

* = 0 

4 name = 'g728' 

4 dataType = 0 

5 audioData = 0 
20 6 g728 = 60 

3 * = 0 

4 name = 'g7231' 
4 dataType = 0 

25 5 audioData = 0 

6 g7231 = 0 

7 maxAl-sduAudio Frames = 8 
7 silenceSuppression = 0 

30 3 * = 0 

4 name = ' h2 61VideoCapability ' 

4 dataType = 0 

5 videoData = 0 

6 h261VideoCapability = 0 
35 7 qcifMPI = 1 

7 cifMPI = 1 

7 temporalSpatialTradeOf fCapability = 0 

7 maxBitRate = 600 

7 stilllmageTransmission = 0 



4 name = ' h263VideoCapability' 

4 dataType = 0 

5 videoData = 0 

45 6 h2 63VideoCapability = 0 

7 sqcifMPI = 1 

7 qcifMPI = 1 

7 cifMPI = 1 

7 maxBitRate = 1000 

50 7 unrestrictedVector = 0 

7 arithmeticCoding = 0 

7 advancedPrediction = 0 

7 pbFrames = 0 

7 temporalSpatialTradeOffCapability 

55 7 errorCompensation = 0 

3 * = 0 

4 name = 'tl2 0' 
4 dataType = 0 

60 5 data = 0 

6 application = 0 

7 tl20 = 0 

8 separateLANStack = 0 
6 maxBitRate = 1000 



65 



[MWIACTIVATE_SR] 
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servedUserNr=serveduser@example . com 

basicService=0815 

msgCentreId=4711 

nbOfMessages=l 

originatingNr=originating@example . com 

timestamp=1997 0621194 530 

priority=7 

[MWI DEACT I VATE_SR] 

servedUserNr=serveduser@example . com 
basicService=08 15 
msgCentreId=4711 
callbackReq=l 

[MWIINTERROGATE_SR] 

servedUserNr=servedusereexample . com 

basicService=0815 

msgCentreId=4 711 

callbackReq=l 

[MWIACK_SR] 
basicService=0815 
msgCentreId=4 711 
nbOfMessages=l 

originatingNr=originating@example . com 

timestamp=l 997 062 11 94530 

priority=7 

[MWIREJ_SR] 
Error=8 



#include <rvcoirimon . h> 
#include <msg.h> 
#include <ms . h> 
ttinclude <pdlproc.h> 
#include <stkutils.h> 
#include <rtree.h> 
#include <pdlraw.h> 
#include <cmintr.h> 
#include "h450api.h" 
ttinclude "h4 50struct . h" 



static LOCAL_STRUCT_PTR control; 
static cmElem* app; 

static char string [2048] ; //string, which carries the H.450 

message 

static unsigned int n; // counter to step through 

the string 



RVAPI void CALLCONV initAPI(MYHANDLE ^ahandle) 

^ control = (LOCAL_STRUCT_PTR) calloc (1, si zeo f ( LOCAL_STRUCT ) ) ; 
*ahandle = (MYHANDLE *) control; 

} 

RVAPI void CALLCONV endAPI ( ) 

{ 

if {control) 

{ 

free ( control) ; 

} 
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RVAPI void CALLCONV setCallback (MYHANDLE ahandle, CALLBACK_T 
callback) 

LOCAL_STRUCT_PTR local = ( LOCAL_STRUCT_PTR) ahandle ; 
local->callback = callback; 

} 



RVAPI void CALLCONV initH4 50Root ( char * configfile, MYHANDLE 

*rootshandle) 

{ 

char pdlName[28 0] = "*RADVH450"; 
pdllnitNumbers numbers = 



{ 



/^vtNodeCount */2700, 
/^channels */100, 
/■*chanDescs 5 */5, 
/^messages */50, 
/*tpktChans */5, 
/*udpChans */3, 
/^protocols */40, 
/*maxProcs */40, 
/*maxBuf fSize */2048, 

app= (cmElem*) calloc (1, sizeof (cmElem) ) ; 



msOpen { ) ; 

app->hCfg=ciConstruct (configfile) ; 
ciGetString (app- 
>hCfg, "system. pdlName", pdlName, sizeof (pdlName) ) ; 



pdllnit ( (HPdlAProtocol) app, & (app- 
>hsProtocol) , (newProtocolEH) newH450RootChild, ( char *) pdlName , app- 
>hCfg, &numbers) ; 

*rootshandle= (MYHANDLE*) ( app->hsProtocol ) ; 



pdlStart (app->hsProtocol) ; 

} 



RVAPI void CALLCONV endH450Root () 
{ 

i f ( app ) 

{ 

pdlEnd (app->hsProtocol) ; 
ciDestruct (app->hCfg) ; 
msClose ( ) ; 
free (app) ; 



RVAPI void CALLCONV createH4 SOprotocol ( char * machinename, CALLBACK_T 
rootshandle, CALLBACK_T ahandle, MYHANDLE *h450shandle ) 
// create a new protocol under the root 
{ 

cmElem* app= ( cmElem* ) r oot shandle ; 
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// create new protocol: runs the create block of the specified 
machine 

pdlCreateProtocol { {HPdlSProtocol) app, (HPdlAProtocol) ahandle, 

(HPdlSProtocol* ) h450shandle, machinename , 
(newProtocolEH) newH450Child, ( newMessageEH ) newH450Message , FALSE) ; 
} 

RVAPI void CALLCONV closeH450protocol{CALLBACK_T mglinkershandle ) 
{ 

// close the protocol for the messagelinker 
pdlCloseProtocol ( {HPdlSProtocol ) mglinkershandle) ; 

} 



int newH450Message (HPdlAProtocol haProtocol, HPdlSProtocol 

hsProtocol, int message) 

{ 

HPST synH; 
HPVT valH; 

int stNodeld; // the syntaxtree nodeld 

int fieldid; . II the fieldid of the node 

int vtNodeld; // the valuetree nodeld 

char rootname [2 5 6] ; // the rootname of the syntaxtree root node 

LOCAL_STRUCT_PTR local = ( LOCAL_STRDCT_PTR) haProtocol ; 
memset (string, 0, sizeof (string) ) ; 



valH = pdlGetValTree ( (HPdlSProtocol) hsProtocol) ; 



vtNodeId=pvtGetNodeIdByPath (valH, message,"") ; 
synH=pvtGetSynTree (valH, vtNodeld) ; 



pvtGet (valH, VtNodeld, NULL, &stNodeId, NULL, NULL) ; 



pstGetRootName (synH, sizeof ( rootname ) , rootname); 



f ieldId=pstGetFieldId (synH, rootname) ; 

strcpy (string, "########################### H450-Message 
###########################") ; 

local->callback (string) ; 
strcpy (string, ""); 

recursion (haProtocol, valH, synH, stNodeld, vtNodeld, fieldid, 

0) ; 

// enable to send message in on esting: local- 
>callback (string) ; 

return 0 ; 

} 



char recursion (HPdlAProtocol haProtocol, HPVT valH, HPST synH, int 
stNode, int vtNode, INT32 fieldid, int tab) 



LOCAL_STRUCT_PTR local = ( LOCAL_STRUCT_PTR) haProtocol ; 
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pstChild child; 
char fieldName[256] ; 
char fieldString[256] ; 
int stNodeldChild; 
int vtNodeldChild; 
int value; 
the node or the leghth of the 
BOOL isString; 

node 

int i; 

vtNodeIdChild=vtNode; 
stNodeIdChild=stNode; 

// get the value stored in the node 

pvtGet (valH, VtNodeldChild, NULL, NULL, &value, SisString) ; 



// the syntaxtree nodeld of the Child 
// the valuetree nodeld of the Child 
// the value of the number stored in 
string stored in the node 
// TRUE if a string is stored in the 

// counter 



// insert the tabs 
for (i=0 ; i<tab; i++) 



strcat (string. 



// get the fieldname of the syntaxtree node 

pstGetFieldName (synH, fieldid, si zeof ( f ieldName ) , fieldName); 

strcat {string, "<"); 
strcat (string, fieldName) ; 
strcat (string, ">"); 

if (value<=0) 
{ 

// Begin: remove to send message m one string 
local->callback ( string) ; 
strcpy (string, ""); 

// End: remove to send message in one string 



// reads out the value, if 
if (value>0) 



alue is stored 



the valuetree 



in the node 



value, fieldString) ; 



in the node 



// read out the string, if a string is stored 

if (isString == TRUE) 
{ 

pvtGetString (valH, vtNodeldChild, 
strcat (string, fieldString); 

} 

// read out the number, if a number is stored 

else 
{ 

// convert number to string 
_itoa(value, fieldString, 10); 
strcat (string, fieldString); 

} 

local->callback (string) ; 
strcpy (string, ""); 



//if there are any children of the current node , the function 
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// calls itself with the stNode, vtNode and the fieldid of each 
child, and with 

// tab increased by one 

if (pstGetNumberOfChildren(synH, stNodeldChild) >0) 
{ 

for (i=l; KpstGetNumberOfChildren {synH, 
StNodeldChild) +1; i++) 
{ 

pstGetChild(synH, stNodeldChild, i, &child ) ; 
// function only calls itself, when the child 

exists in the valuetree 

if (pvtGetChild (valH, vtNode, child . fieldid, 

&vtNodeIdChild) >0) 

{ 

recursion (haProtocol, valH, synH, 
child. nodeld, vtNodeldChild, child . fieldid, tab+1); 

} 

} 

} 

// if NodeType is Sequence of or Set of, the function also 
searches for 

// children of the Sequence of XXX / Set of XXX node, 
if (pstGetNodeType (synH, stNode)==19 1| pstGetNodeType ( synH, 
StNode) ==20) 

{ 

stNodeIdChild=pstGetNodeOfId(synH, stNode) ; 
vtNode=pvtChild(valH, vtNode); 

for (1=1; i<pstGetNumberOf Children (synH, 
StNodeldChild) +1; i++) 

{ 

pstGetChild (synH, stNodeldChild, i, Schild ); 
// function only calls itself, when the child 
if (pvtGetChild (valH, vtNode, child . fieldid, 
{ 



exists in the valu 
&vtNodeIdChild) >0) 



scursion (haProtocol, valH, synH, 
child. nodeld, vtNodeldChild, child . fieldid, tab+1); 

} 



// insert the tabs 
for (1=0 ; i<tab; i 



strcat (string. 



strcat (string, "</"); 
strcat (string, fieldName) ; 
strcat ( string, ">"); 



// Begin: remove to send message in one strin^ 
local->callback (string) ; 
strcpy (string, ""); 

// End: remove to send message in one string 
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int newH4 50RootChild { 

IN HPdlAProtocol 

IN HPdlSProtocol 

OUT HPdlAProtocol* 

IN char* 

OUT newProtocolEH* 

OUT newMessageEH* 

OUT BOOL* 



haProtocol Parent , 
hsProtocol , 
IphaProtocol, 

protocolName, 

newSessionP, 
newCallMsgP, 

self De struct ing) 



*newSessionP= {newProtccolEH) newH450RootChild; 
*newCallMsgP=newH4 SOMessage ; 
*lphaProtocol=haProtocolParent; 
*selfDestructing=TRUE; 
return 0; 



int newH450Child( 



OUT 
OUT 
OUT 



HPdlAProtocol 
HPdlSProtocol 
HPdlAProtocol* 
char* 

newProtocolEH* 

newMessageEH* 

BOOL* 



haProtocolParent f 

hsProtocol, 

IphaProtocol, 

protocolName , 

newSessionP, 
newCallMsgP, 

self De struct ing) 



*newSessionP= (newProtocolEH) newH450Child; 
*newCallMsgP=newH4 SOMessage ; 
*lphaProtocol=haProtocolParent ; 
*self Destructing=TRUE; 
return 0; 



RVAPI void CALLCONV sendmessageH450 (char * message, CALLBACK_T 
h450shandle) 

{ 

int nodeld; 
cmElem* 

app= (cmElem*)pdlGetAHandle (pdlRoot ( (HPdlSProtocol) h450shandle) ) ; 

// get the handle of the valuetree 
app->hVal = pdlGetValTree (app->hsProtocol) ; 

// create a new value tree based on "h4507app2pdl" 
nodeId=pvtAddRoot ( app->hVal , pdlGetSynTreeByRootName (app- 
>hsProtocol, (char*) "h4 507 app2pdl" ) , 0,NULL) ; 
n=0; /* set counter to 0*/ 

// call function to fill in the fields of the valuetree sent ii 
message 

fillin (message, "", app->hVal, nodeld); 
pdlSendMessage ( (HPdlSProtocol) h450shandle, nodeld) ; 

} 



char fillin (char * message, char * rootpath, HPVT hVal, int nodeld) 
{ 

int length; 

int nodeldTemp; 

char path [2048] ; 

char f ieldvalue [256] ; 

memset (path, 0, sizeof (path) ) ; 

memset (f ieldvalue, 0, sizeof (f ieldvalue) ) ; 



strGpy(path, rootpath) ; 
length = strlen (message ) ; 

while (message[n] == '<' && message [n+1] != '/') 

5 { 

n++; 

fillin (message, path, hVal, nodeld) ; 

if (message[n] == 0 M (message [n] == '<' && message[n+l] 
' / ' ) ) return 0; 

10 } 

if (message[n] != '/') 

15 ^ n— ; 

if (n!=0) strcat(path, " . " ) ; 
n++; 

while (message [n] != '>') 

20 strncat (path, message+n, 1 ) ; 

n++; 

} 

n++; 

25 if (message[n] != '<') 

{ 

strcpy ( f ieldvalue, ""); 
while (message [n] != '<') 

30 strncat ( f ieldvalue, message+n, 1) ; 

n++; 

} 

nodeldTemp = 

pvtBuiidByPath (hVal, nodeld, path, sizeof (fieidvaiue) , f ieldvalue) ; 
35 n++; 

} 

else 

40 nodeldTemp = 

pvtBuildByPath (hVai, nodeld, path, 0,NULL) ; 

if (message[n] == '<• && message[n+l] != '/') 
{ 

fillin (message, path, hVal, nodeld); 
45 n++; 

} 

else n++; 
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55 



if (message [n] 



while (message [n] 
{ 

n++; 



} 

#lfndef H450API_H 
#define H450API H 



65 tinclude 
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/* Typedefs */ 

typedef void *MYHANDLE; 

typedef void (*CALLBACK_T) (char* ) ; 

typedef struct 
{ 

CALLBACK_T callback; 
} LOCAL_STRUCT, *LOCAL_STRUCT_PTR; 

/* Function prototypes */ 

RVAPI void CALLCONV initAPI(MYHANDLE *ahandle); 
RVAPI void CALLCONV endAPI ( ) ; 

RVAPI void CALLCONV setCallback (MYHANDLE ahandle, CALLBACK_T 
callback) ; 

RVAPI void CALLCONV initH4 SORoot ( char * configfile, MYHANDLE 
*rootshandle) ; 

RVAPI void CALLCONV endH4 50Root ( ) ; 

RVAPI void CALLCONV sendmessageH4 50 ( char * string, CALLBACK_T 
h450shandle) ; 

RVAPI void CALLCONV initializeH ( void) ; 

RVAPI void CALLCONV createH450protocol (char * machinename, CALLBACK_ 

rootshandle, CALLBACK__T ahandle, MYHANDLE *h450shandle) ; 

RVAPI void CALLCONV closeH450protocol (CALLBACK_T mglinkershandle ) ; 

#endif /* H450API_H */ 
#ifndef H450_H 
#define H450_H 

#include <cin.h> 



/* Typedefs */ 

typedef struct 
{ 

HRTREE hrTree; /* the tree of protocols*/ 

HDRV hTpktChan;/* ther are 2 types of external 

channels */ 

HDRV hUdpChan; 

HPDLCHANDESC hApplChan; /* application channel internal 
channel, implemented by pdlapi*/ 

HPDL hPdl; /* pointer to global structure in 

pdlproc layer*/ 

HCHN hChn; /* handle passed to all channels 

functions*/ 

HVALT hVal; 

newCallbackEH newCallback; /* global callback, that calls befor 
all callbacks 

created for X */ 

setAppBuf f erEH setAppBuf f er ; /* notify the appl about new messag 
on the one of the 

application channels*/ 

HCFG hCfg; /* configuration handle */ 

HPDLRAW hRaw; /* handle to pdl file */ 

int msa; /* pdlapi printing */ 

} pdlApp; /* one for all protocols contains all global values*/ 

typedef struct 
{ 

pdlApp* app; 

int id; /*id in the protocol tree */ 

HPdlAProtocol haProtocol; /* application handle*/ 
HPDLP hProc; /* pointer to machine */ 



28 



UINT32 key; /*protocol parameter is stored as tree 

*/ 

newProtocolEH newProtocol ; /* called, when new child protocol 

is created*/ 

5 newMessageEH newMessage; /* protocol receives messages from 

machine via this cllback */ 

BOOL passive; /* set if tried to close protocol 

and not succeded because of childs*/ 

BOOL self Destructing; /* can parent close child 

10 protocol without closing this child from 

application* / 
} pdlElem; /*protocol structure */ 

/* Function prototypes */ 

15 

int newH450RootChild ( 



IN HPdlAProtocol haProtocolParent , 

IN HPdlSProtocol hsProtocol, 

OUT HPdlAProtocol* IphaProtocol, 

20 IN char* protocolName, 

OUT newProtocolEH* newSessionP, 

OUT newMessageEH* newCallMsgP, 

OUT BOOL* selfDestructing 



int newH450Child( 
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OUT 
OUT 
OUT 



HPdlAProtocol 
HPdlSProtocol 
HPdlAProtocol* 

newProtocolEH* 

newMessageEH* 

BOOL* 



haProtocolParent, 

hsProtocol, 

IphaProtocol, 

protocolName, 

newSessionP, 
newCallMsgP, 

selfDestructing 



40 int newH450Message ( 

IN HPdlAProtocol haProtocol, 

IN HPdlSProtocol hsProtocol, 

IN int message 

45 char recursion '(HPdlAProtocol haProtocol, HPVT valH, HPST synH, int 
stNode, int vtNode, INT32 fieldid, int tab) ; 

char fillin (char * dummy, char * dummypath, HPVT hVal, int nodeld) ; 
tendif /* H450 H *// 

50 

#include <rvcommon.h> 

#include <msg.h> 

#include <ms . h> 
55 tinclude <pdlproc.h> 

tinclude <stkutils.h> 

#include <rtree.h> 

tinclude <pdlraw.h> 

tinclude <cmintr.h> 
60 #include <emanag.h> 

#include "h4 50api.h" 

tinclude "h4 SOstruct . h" 

#include <ssintr.h> 

65 

static LOCAL_STRUCT_PTR control; 
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static ssElem* app; 
static char string [2048 ] ; 
static char buffer [2048 ] ; 
static unsigned int n; 



RVAPI void CALLCONV tpInitAPI (MYHANDLE *ahandle) 
{ 

control = (LOCAL_STRUCT_PTR) calloc (1, sizeof (LOCAL_STRUCT ) ) ; 
*ahandle = (MYHANDLE *) control; 

} 



RVAPI void CALLCONV tpEndAPI ( ) 
{ 

if (control) 
{ 

free ( control ) ; 

} 

} 

RVAPI void CALLCONV tpSetCallback (MYHANDLE ahandle, CALLBACK_T 

callback) 

{ 

LOCAL_STRUCT_PTR local = ( LOCAL_STRUCT_PTR) ahandle ; 
local->callback = callback; 

} 

RVAPI int tpNewH450Message (HPdlAProtocol haProtocol, HPdlSProtocol 

hsProtocol, int message) 

{ 

HPST synH; 
HPVT valH; 

int stNodeld; 
int fieldid; 

int vtNodeld; char rootname [256] ; 

LOCAL_STRUCT_PTR local = ( LOCAL_STRDCT_PTR) haProtocol ; 
memset (string, 0, sizeof (string) ) ; 
meniset (buffer, 0, sizeof (buffer) ) ; 

valH = pdlGetValTree ( (HPdlSProtocol) hsProtocol) ; 



//vtNodeId=pvtGetNodeIdByPath (valH, 
message, "h4501SupplenietaryService") ; insert for h. 450.1 / 

vtNodeId=pvtGetNodeIdByPath (valH, message,"");/* remove for 
h. 450 . 1 */ 

synH=pvtGetSynTree (valH, vtNodeld) ; 

pvtGet ( valH, vtNodeld, NULL, SstNodeld, NULL, NULL) ; 

pstGetRootName (synH, sizeof (rootname) , rootname); 



f ieldId=pstGetFieldId ( synH, rootname) ; 

strcpy (string, "############ received H450-Message 
############");/* remove for h. 450.1 */ 

local->callback (string) ; /* remove for h. 450.1 */ 
strcpy ( string, ""); 

//eraEncode ( (HVALT) valH, vtNodeld, (BYTE* ) buff er, sizeof (buffer) , &e 
needed); /* insert for h. 450.1 */ 

//local->callback (buffer) ; /* insert for h. 450.1 */ 
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tpReadOutVT (haProtocol, valH, synH, stNodeld, vtNodeld, 
fieldid, 0); /* remove for h. 450.1 */ 



// enable to send message in one string: local- 
>callback (string) ; 



} 

RVAPI int CALLCONV tpCreateService ( 

IN HSSAPP hSSApp, 

OUT HSSSERVICE* hSSServ, 

IN HSSAPPSERVICE hSSaServ, 

IN char* serviceName) 

{ 

int ret; 

ssElem* app= ( ssElem* ) hSSApp; 

ret = pdlCreateProtocol (app->hsProtocol, ( HPdlAProtocoi ) hSSaServ, 
(HPdlSPrctocol*) hSSServ, serviceName, 
NULL, tpNewH450Message, FALSE) ; 
return ret; 

} 



char tpReadOutVT (HPdlAProtocoi haProtocol, HPVT valH, HPST synH, int 
stNode, int vtNode, INT32 fieidid, int tab) 

{ 

LOCAL_STRUCT_PTR local = ( LOCAL_STRUCT_PTR} haProtocol ; 

pstChild child; 

char fieldName [25 6] ; 

char f ieldString [256] ; 

int stNodeldChild; 

int vtNodeldChild; 

BOOL isString; 
int i; 

vtNodeIdChild=vtNode ; 
stNodeIdChild=stNode ; 



pvtGet (valH, VtNodeldChild, NULL, NULL, &value, &isString) ; 



for {i=0 ; i<tab; i++) 

{ 

strcat (string, " "); 

} 

pstGetFieldName (synH, fieldid, sizeof ( fieldName ) , 

fieldName) ; 

strcat ( string, "<"); 
strcat (string, fieldName); 
strcat ( string, ">"); 



if (value>0 && pstGetNodeType ( synH, stNode)<15) //value>=0 ??? 
{ 

if (isString == TRUE) 
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{ 

pvtGetString (valH, vtNodeldChild, value, 

f ieldString) ; 

strncat (string, f ieldString, value); 
strcpy ( f ieldString, ""); 
} 



else 
{ 

_itoa (value, fieldString, 10); 
strcat (string, fieldString) ; 
strcpy ( fieldString, ""); 
} 

local->callback (string) ; 
strcpy (string, ""); 

} 

else 
{ 

local->callback ( string) ; 
strcpy (string, ""); 



if (pstGetNumberOf Children (synH, stNodeldChild) >0 ) 
{ 

for (1=1; KpstGetNumberOf Children (synH, 
StNodeldChild) +1; i++) 
{ 

pstGetChild(synH, stNodeldChild, i, Schild ) 
if (pvtGetChild(valH 

vtNode, child. fieldid, &vtNodeIdChild) >0 ) 

{ 

tpReadOutVT (haProtocol, valH, synH, 
child. nodeld, vtNodeldChild, child. fieldid, tab+1); 



if (pstGetNodeType (synH, stNode)==19 || pstGetNodeType (synH, 
stNode) ==20) 

{ 

stNodeIdChild=pstGetNodeOf Id(synH, stNode) ; 
vtNode=pvtChild (valH, vtNode); 

for (1=1; i<pstGetNumberOf Children (synH, 
StNodeldChild) +1; i++) 

{ 

pstGetChild(synH, stNodeldChild, i, Schild ) 
if (pvtGetChild(valH 

VtNode, child. fieldid, SvtNodeldChild) >0 ) 
{ 

tpReadOutVT (haProtocol, valH, synH, 
child. nodeld, vtNodeldChild, child. fieldid, tab+1); 
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for {i=0 ; i<tab; i++) 

{ 

strcat ( string, " " ) ; 

} 

strcat (string, "</"); 
strcat (string, fieldName) ; 
strcat (string, ">"); 

local->caIlback (string) ; 
strcpy (string, ""); 

return 0; 

} 

RVAPI void CALLCONV tpSendMes sageH4 507 ( char * message, HSSSERVICE 
h450shandle) 

{ 

int nodeld; 
ssElem* 

app=(ssElem*)pdlGetAHandle(pdlRoot ( (HPdlSProtocol ) h450shandle) ) ; 

app->hVal = pdlGetValTree (app->hsProtocol) ; 

nodeId=pvtAddRoot (app->hVal, pdlGetSynTreeByRootName (ai 
>hsProtocol, (char*) "h4507app2pdl") , 0, NULL) ; /* remove for h. 450.1 

n=0; /* set counter to 0*/ 



tpPopulateVT (message , "", app->hVal, nodeld); 
pdlSendMessage ( (HPdlSProtocol) h450shandle, nodeld) ; 

} 

RVAPI void CALLCONV tpSendMessageH4501 (char * message, HSSSERVICE 
h450shandle) 

{ 

int nodeld; 
ssElem* 

app= (ssElem*)pdlGetAHandle (pdlRoot ( (HPdlSProtocol) h450shandle) ) ; 
app->hVal = pdlGetValTree (app->hsProtocol) ; 



nodeId=pvtAddRoot ( app->hVal , pdlGetSynTreeByRootName (app- 
>hsProtocol, (char* ) "h4501AppPrimitive") , 0, NULL) ; /* insert for 
h. 450.1 */ 

n=0; /* set counter to 0*/ 



tpPopulateVT (message, "", app->hVal, nodeld); 
pdlSendMessage ( (HPdlSProtocol) h450shandle, nodeld) ; 

} 

RVAPI void CALLCONV tpSendMessageH450x (char * message, HSSSERVICE 
h450shandle) 

{ 

int nodeld; 
ssElem* 

app=(ssElem*)pdlGetAHandle (pdlRoot ( (HPdlSProtocol) h450shandle) ) ; 
app->hVal = pdlGetValTree (app->hsProtocol) ; 
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nodeId=pvtAddRoot (app->hVal, pdlGetSynTreeByRootName 
>hsProtocol, (char*) "h450xAppPrimitive") , 0, NULL) ; /* insert for 
h. 450.1 */ 

n=0; /* set counter to 0*/ 



tpPopulateVT (message, "", app->hVal, nodeld) ; 
pdlSendMessage ( (HPdlSProtocol) h450shandle, nodeld) ; 



int chrn2bmpl (char *str, int maxStrLen, BYTE* bmpStr) 
int i, 12; 

for (1=0, 12 = 0; 1 < maxStrLen; 1++, 12 += 2) 

{ 

bmpStr[i2 + 0] = 0; 
bmpStr[12 + 1] = str[l]; 

} 

} 

Int chr2bmpl (char *str, BYTE* bmpStr) 
{ 

return chrn2bmpl ( str , strlen(str), bmpStr); 



char tpPopulateVT (char * message, char * rootpath, HPVT hVal, 1 

nodeld) 

{ 

UINT32 fieldvalueOctet; 

Int length; 

int f ieldvaluesize ; 

int fleldvalueint; 

int f ieldvaluelength; 

int bmpLength; 

int nodeldTemp; 

char bmpStr [512] ; 

char path [2048] ; 

char f ieldvalue [256] ; 

char stringOrInt; 

memset (path, 0, sizeof (path) ) ; 

memset (fieldvalue, 0, sizeof (f ieldvalue) ) ; 

strcpy(path, rootpath); 

length = strlen (message ) ; 

while (message [n] == '<' && message [n+1] != '/') 
{ 

tpPopulateVT (message, path, hVal, nodeld); 

if (message[n] == 0 | i {message[n] == '<' && message[n+l] 
' / ' ) ) return 0 ; 

} 



if (message[n] != '/') 
{ 

if (n!=0) strcat(path, "."); 
n++; 

while (message [n] != '>') 
{ 

strncat (path, message+n, 1); 



if (inessage[n] != '<') 

5 { 

stringOrInt=message [n] ; 
n++; 

f ieldvaluesize=0 ; 
strcpy (f ieldvalue, ""); 
10 while (message[n] != '<') 

{ 

strncat ( f ieldvalue, message+n, 1); 
n++; 

f ieldvaluesize++ ; 

15 } 

fieldvalue [ f ieldvaluesize] =' \0 ' ; 
f ieldvaluesize++; 
f ieldvaluelength=strlen (fieldvalue ) ; 
if ( string0rlnt== ' s ' ) 

nodeldTemp = 

pvtBuildByPath (hVal, nodeld, path, f ieldvaluelength, fieldvalue) ; 
} 

if (string0rlnt=='b' ) 

25 { 

bmpLength=chr2bmpl (fieldvalue, 

(BYTE*)bmpStr) ; 

nodeldTemp = 

pvtBuildByPath (hVal, nodeld, path, bmpLength, bmpStr ) ; 

30 } 

if (string0rlnt==' i ' ) 
{ 

fieldvalueint = atoi (fieldvalue) ; 
nodeldTemp = 

35 pvtBuildByPath (hVal, nodeld, path, fieldvalueint , NULL) ; 
} 

if (string0rlnt== ' o ' ) 
{ 

f ieldvalueOctet = atoi ( fieldvalue ) ; 
40 nodeldTemp = 

pvtBuildByPath (hVal , nodeld, path, sizeof (UINT32 ) , ( f ieldvalueOctet ) ? ( (ch 
ar*) &f ieldvalueOctet) : (char*) "\0\0\0") ; 

} 

n++; 

45 } 

else 
{ 

nodeldTemp = 
50 pvtBuildByPath (hVal, nodeld, path, 0,NULL) ; 

if (message[n] == '<' && message[n+l] != '/') 
{ 

tpPopulateVT (message, path, hVal, nodeld); 

55 , 

else n++; 



if (message [n] == ' / ' ) 

{ 



while (message [n] 

{ 

n++; 
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return 0; 

} 

} 

#ifndef H4 50API_H 
ttdefine H450API_H 

#include <cm.h> 
#include <pdlapi.h> 
#include <h450.h> 



/* Typedefs */ 

typedef void *MYHANDLE; 

typedef void ( *CALLBACK_T) (char* ) ; 

typedef struct 

{ 

CALLBACK_T callback; 
} LOCAL_STRUCT, *LOCAL_STRUCT_PTR; 



RVAPI void CALLCONV tpInitAPI (MYHANDLE *ahandle); 
RVAPI void CALLCONV tpEndAPI ( ) ; 

RVAPI void CALLCONV tpSetCallback (MYHANDLE ahandle, CALLBACK T 
callback) ; — 
RVAPI void CALLCONV tpSendMessageH4501 (char * string, HSSSERVICE 
h450shandle) ; 

RVAPI void CALLCONV tpSendMessageH4 5 Ox ( char * string, HSSSERVICE 
h4 50shandle) ; 

RVAPI void CALLCONV tpSendMessageH4507 ( char * string, HSSSERVICE 
h4 5 0shandle) ; 

RVAPI int tpNewH450Message (HPdlAProtocol haProtoGol, HPdlSProtocol 
hsProtocol, int message) ; 

RVAPI int CALLCONV tpCreateService ( HSSAPP hSSApp, HSSSERVICE* 
hSSServ, HSSAPPSERVICE hSSaServ, char* serviceName ) ; 

#endif /* H450API_H */ 
#include <windows . h> 
static HINSTANCE hinst; 
HINSTANCE getHInst (void) 
{ 

return hInst; 

} 

#ifdef WIN32 

BOOL WINAPI DllMain( 

IN HINSTANCE hinstDLL, // handle to DLL module 

IN DWORD fdwReason, // reason for calling function 

IN LPVOID IpvReserved // reserved 

) 

{ 

switch (fdwReason) 
{ 

case DLL_PROCESS_ATTACH: 
hInst=hinstDLL; 
break; 

case DLL_PROCESS_DETACH: 
break; 

} 

return TRUE; 
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#else 

int FAR PASCAL LibMain (HANDLE hinstance, WORD wDataSegment , 
WORD wHeapSize, LPSTR IpszCmdLine) 

{ 

if (hinst != NULL) 
return FALSE; 

hInst = hinstance; 
return TRUE; 



int FAR PASCAL export WEP (int bSystemExit ) 

{ 

hInst = NULL; 
return 0; 



#endif 
20 #ifndef H450_H 
#define H450_H 

tinclude <cm.h> 

25 

char tpReadOutVT (HPdlAProtocol haProtocol, HPVT valH, HPST synH, i 
stNode, int vtNode, INT32 fieldid, int tab) ; 

char tpPopulateVT (char * dummy, char * dummypath, HPVT hVal, int 
nodeld) ; 

30 

#endif /* H450_H *// 



